(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     31236,        842]
NotebookOptionsPosition[     24648,        701]
NotebookOutlinePosition[     25820,        735]
CellTagsIndexPosition[     25741,        730]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["12.3", "HistoryData",
  CellTags->"New",ExpressionUUID->"c24a8d02-1b68-4fcd-aff8-95781b8af0d2"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"41c26adb-fd78-4209-a4d5-4f24b475c869"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"7c9875f3-da66-490b-b518-981e1f7e6837"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"63b55cf2-94f6-4520-8a46-7378df3560b7"]
}], "History",
 CellChangeTimes->{{3.828010892917633*^9, 3.828010893215119*^9}},
 CellID->1247902091,ExpressionUUID->"41ad31a0-26a3-4ff8-927a-44db3e715f95"],

Cell["Created by: arnoudb on 04-21-2021 10:11:49", "AuthorDate",
 CellID->357850044,ExpressionUUID->"350bfade-5e7e-4afd-983b-06dcb993a6cf"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"cafb9ccb-a6be-4c86-85f0-5849c5345f3a"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"d3672960-eef7-49f2-a47e-fce423fec36a"],

Cell["Prototypes", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"e9337bb6-80d8-4427-9444-53c8416845ec"],

Cell["Prototypes`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"a09e9c4d-8ab9-4ae7-b585-c517016e8191"],

Cell["Prototypes/ref/Grayer", "Categorization",
 CellLabel->"URI",ExpressionUUID->"f4c50626-70ea-4938-af51-c60e63c76466"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"ef06640c-42c9-4c00-9a6c-9b632e3752b6"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"5526fed3-9f52-4745-8ea1-58ff8c36c14d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"119176c2-887f-409f-a0c9-b72561b7624c"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"1b15e1f4-90c6-45fb-bbe0-ea52939f5d72"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"9e18a772-50d9-48d2-8436-649cdc9f97ec"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"1e946dbb-3373-40d7-b302-c6d742eac1b9"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"aee0c783-3703-4eff-afcc-bcf11e35c648"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Grayer", "ObjectName",
 CellID->1224892054,ExpressionUUID->"8393d601-4014-44ba-afc9-60862df940ec"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"26eb6dc5-e278-4eac-8783-7978b6f7bf16"],
 Cell[BoxData[
  RowBox[{"Grayer", "[", 
   StyleBox[
    ButtonBox["color",
     BaseStyle->"Link",
     ButtonData->"paclet:Prototypes/ref/color"], "TI"], "]"}]], 
  "InlineFormula",ExpressionUUID->"3bc54331-57de-4307-af7d-986935ae0c41"],
 " \[LineSeparator]blends ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["color",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/color"], "TI"]], "InlineFormula",
  ExpressionUUID->"fc6ad2b2-283d-40e4-800f-80d60011b8ce"],
 " with ",
 Cell[BoxData[
  ButtonBox["Gray",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d107f67a-d3e2-4857-8f9f-7b2cbd3749b3"],
 " to make it grayer.\n",
 Cell["   ", "ModInfo",ExpressionUUID->"52844b31-c76c-4542-b489-d17292269aa8"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["Grayer",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/Grayer"], "[", 
   RowBox[{
    StyleBox["color", "TI"], ",", 
    StyleBox["frac", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "99e0e2c4-d482-4879-8824-6f1d6da0d3ad"],
 "\[LineSeparator]blends ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["color",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/color"], "TI"]], "InlineFormula",
  ExpressionUUID->"fb3435fc-062e-4848-9a3f-cabd001101f2"],
 " with ",
 Cell[BoxData[
  ButtonBox["Gray",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d47fc991-df7e-4bb7-a98a-f9e5554872c1"],
 " with the specified fraction ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["frac",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/frac"], "TI"]], "InlineFormula",
  ExpressionUUID->"edf62fa1-d4db-4fb4-8916-4c6c1d466080"],
 "."
}], "Usage",
 CellChangeTimes->{{3.8280045587753267`*^9, 3.8280047065744658`*^9}, {
  3.82800684619604*^9, 3.828006875422019*^9}, {3.828009556685609*^9, 
  3.828009578078673*^9}, {3.828010553362173*^9, 3.828010553362215*^9}},
 CellID->982511436,ExpressionUUID->"2e8d6335-2446-4473-b597-6bbb38a65799"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["Grayer",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/Grayer"], "[", 
   StyleBox["color", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "7535691a-6fa3-4657-9a63-d9778c91da31"],
 " is equivalent to ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Blend",
    BaseStyle->"Link"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Gray", ",", 
      StyleBox["color", "TI"]}], "}"}], ",", 
    RowBox[{"1", "/", "3"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "3f4ecca7-958a-4e08-8a1c-5aeafbfbfe74"],
 "."
}], "Notes",
 CellChangeTimes->{{3.8280048343705263`*^9, 3.828004876188136*^9}, {
  3.82800689381957*^9, 3.828006909591322*^9}, {3.8280095806825027`*^9, 
  3.828009592188711*^9}},
 CellID->1067943069,ExpressionUUID->"154f4bd8-07ba-4503-866b-525e4fb54c01"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tech Notes", "TechNotesSection",
 CellID->250839057,ExpressionUUID->"da8de6e2-f50e-4466-8f74-1195bf5a89d0"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"e1edaba6-14d4-493d-967e-ab2b49e2f61b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"8d2e4b42-3f1f-4fda-9065-bdb5de742079"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"549370f2-2a22-4244-90b3-6ae31eea748a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"1218faa7-c18d-4eff-9a36-a4048d7b6b51"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"dfccd913-5621-47e5-ac70-28b83aef4a2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"e1b77b9c-87a2-4d83-b69a-076fc77c8bb2"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["Blacker",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Blacker"]], "InlineFormula",
  ExpressionUUID->"9de15219-52a2-4f40-b1c8-730627aca164"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Bluer",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Bluer"]], "InlineFormula",
  ExpressionUUID->"e937720b-97eb-4320-9b28-cd0e9f7b73cb"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Grayer",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Grayer"]], "InlineFormula",
  ExpressionUUID->"a488218b-3c04-4fbf-9335-21df7806d888"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Greener",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Greener"]], "InlineFormula",
  ExpressionUUID->"214f14ed-8e06-4140-baea-0199a3c46e5f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Oranger",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Oranger"]], "InlineFormula",
  ExpressionUUID->"3dba7fa3-ca1f-4c94-8a6d-5e742c29f589"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Pinker",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Pinker"]], "InlineFormula",
  ExpressionUUID->"4839bca8-208c-4ffb-8259-30fa4f89dc55"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Purpler",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Purpler"]], "InlineFormula",
  ExpressionUUID->"6e727e32-8522-4402-b61b-538505d4356d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Redder",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Redder"]], "InlineFormula",
  ExpressionUUID->"87373774-8eb1-4183-87b8-de6e48712945"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Whiter",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Whiter"]], "InlineFormula",
  ExpressionUUID->"0fc482a6-a334-4e3b-a4aa-aba2515f74d4"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Yellower",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Yellower"]], "InlineFormula",
  ExpressionUUID->"3c6041d2-441f-46e4-b2f1-cc50ef4a2b48"]
}], "SeeAlso",
 CellChangeTimes->{{3.828010484335821*^9, 3.828010515565508*^9}},
 CellID->929782353,ExpressionUUID->"0315209d-6341-46d1-8037-4a30b3ade231"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"090ecd4e-77ab-48e0-ba7a-1f9acccd0dd5"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"4cde9453-fd13-4c75-8f97-91cc14ef1142"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"4d971e0b-a467-44b1-b908-78f8a7482a42"],

Cell[TextData[{
 "Blend various colors with ",
 Cell[BoxData[
  ButtonBox["Gray",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "e534a2ad-f59e-4149-bd4d-d104df8702da"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.828004777412812*^9, 3.828004799553646*^9}, {
  3.828006926879466*^9, 3.828006930462759*^9}, {3.828009606460371*^9, 
  3.828009609411232*^9}},
 CellID->352052385,ExpressionUUID->"66d484a1-3d6c-42c5-a2f9-780bb3cfb14d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{"Grayer", ",", 
   RowBox[{"{", 
    RowBox[{"Green", ",", "White", ",", "Yellow"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.828004721982737*^9, 3.828004750490485*^9}, {
  3.828006932672038*^9, 3.828006958960718*^9}, {3.828009611636277*^9, 
  3.828009612284783*^9}},
 CellLabel->"In[10]:=",
 CellID->1512834444,ExpressionUUID->"f2c4b3e7-f947-462f-80a8-77fd335f3cef"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0., 0.6666666666666666, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0, 1, 0],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[
          0.16666666666666666`, 0.8333333333333334, 0.16666666666666666`], 
          RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[
         0.1111111111111111, 0.5555555555555556, 0.1111111111111111],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          
          RowBox[{"0.16666666666666666`", ",", "0.8333333333333334`", ",", 
            "0.16666666666666666`"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = 
          RGBColor[
           0.16666666666666666`, 0.8333333333333334, 0.16666666666666666`]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0.16666666666666666`, 0.8333333333333334, 0.16666666666666666`],
     
     Editable->False,
     Selectable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->GrayLevel[0.6666666666666667],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"GrayLevel", "[", "1", "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["GrayLevelColorValueSelector"], {
            0, {Left, Bottom}}, {Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     GrayLevel[1],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {GrayLevel[0.8333333333333334], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->GrayLevel[0.5555555555555556],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"GrayLevel", "[", "0.8333333333333334`", "]"}], NumberMarks -> 
        False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = 
          GrayLevel[0.8333333333333334]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["GrayLevelColorValueSelector"], {
            0, {Left, Bottom}}, {Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     GrayLevel[0.8333333333333334],
     Editable->False,
     Selectable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[1, 1, 0],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[
          0.8333333333333334, 0.8333333333333334, 0.16666666666666666`], 
          RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[
         0.5555555555555556, 0.5555555555555556, 0.1111111111111111],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          
          RowBox[{"0.8333333333333334`", ",", "0.8333333333333334`", ",", 
            "0.16666666666666666`"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = 
          RGBColor[
           0.8333333333333334, 0.8333333333333334, 0.16666666666666666`]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0.8333333333333334, 0.8333333333333334, 0.16666666666666666`],
     Editable->False,
     Selectable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.8280047268657303`*^9, 3.8280047509182377`*^9}, {
   3.82800693385812*^9, 3.828006959315884*^9}, 3.828009614123371*^9},
 CellLabel->"Out[10]=",
 CellID->944632221,ExpressionUUID->"5d02ff9c-fe05-4f4f-b12a-287923e8b871"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "32e79d70-f7af-47ff-bb41-513374ef55db"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"6d08f999-4c69-4709-9b28-82906be6ee75"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "a148ce84-caec-4483-aa99-5b7bd6d55bf1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"85bb6475-fccb-4f83-9c4c-95411a492aa7"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "b26b6366-7922-4236-a426-38c0f5de13f0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"3276b1d7-cf51-4f3b-970a-56b0e7c469f0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "2b1687fc-36b1-4429-beec-1c8514e1a5ee"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"f43b442d-f23e-485c-8f19-d9411a527753"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "b2994d78-8630-4e4e-92fc-2e3b6b00febf"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"7118f2cb-cf49-4930-a588-b368e1d6d7eb"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "d5715ee2-1cae-4f33-89b2-0e99ea9caa6e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"1cd6234d-1e3c-431d-9989-71f3025eee95"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "d18b1e1f-4c4c-49a5-bb54-1e5e145ddf4e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"0e0d5f37-f3c9-4474-a22b-9f10dcc8b438"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "dda06a82-eb41-4b48-8510-6cb821647761"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"9397dd0b-9de4-443a-9371-be2b75148f2f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "e1fe5ce4-66df-44f8-b96d-14ea9265eaf2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"c5507407-1b71-491f-84b6-3f5747264ef7"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "898193c6-0d9f-4097-90dd-7bc455972e43"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"ce9d5678-57c6-4712-bdd3-87904919f71e"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, 
  "DocuToolsSettingsInternal" -> {
   "$ApplicationName" -> "Pubs", "$LinkBase" -> "Pubs", 
    "$ApplicationDirectory" -> "/Users/arnoudb/docs/Pubs/", 
    "$DocumentationDirectory" -> 
    "/Users/arnoudb/docs/Pubs/Documentation/English/", "$UseNewPageDialog" -> 
    "", "$PacletVersion" -> "0.10.2252"}, "Author" -> "arnoudb", 
  "CreationDate" -> "04-21-2021 10:11:49"},
CellContext->"Global`",
FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (April 20, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStylesExt.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"4ad1ce46-7466-4285-9ca0-2ec65ddc8ce4"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[21903, 623, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 25547, 723}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 667, 15, 24, "History",ExpressionUUID->"41ad31a0-26a3-4ff8-927a-44db3e715f95",
 CellID->1247902091],
Cell[1228, 37, 139, 1, 20, "AuthorDate",ExpressionUUID->"350bfade-5e7e-4afd-983b-06dcb993a6cf",
 CellID->357850044],
Cell[CellGroupData[{
Cell[1392, 42, 123, 1, 29, "CategorizationSection",ExpressionUUID->"cafb9ccb-a6be-4c86-85f0-5849c5345f3a",
 CellID->1122911449],
Cell[1518, 45, 134, 2, 30, "Categorization",ExpressionUUID->"d3672960-eef7-49f2-a47e-fce423fec36a",
 CellID->686433507],
Cell[1655, 49, 138, 2, 30, "Categorization",ExpressionUUID->"e9337bb6-80d8-4427-9444-53c8416845ec",
 CellID->605800465],
Cell[1796, 53, 135, 2, 30, "Categorization",ExpressionUUID->"a09e9c4d-8ab9-4ae7-b585-c517016e8191",
 CellID->468444828],
Cell[1934, 57, 121, 1, 30, "Categorization",ExpressionUUID->"f4c50626-70ea-4938-af51-c60e63c76466"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2092, 63, 110, 1, 29, "KeywordsSection",ExpressionUUID->"ef06640c-42c9-4c00-9a6c-9b632e3752b6",
 CellID->477174294],
Cell[2205, 66, 100, 1, 19, "Keywords",ExpressionUUID->"5526fed3-9f52-4745-8ea1-58ff8c36c14d",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[2342, 72, 120, 1, 29, "TemplatesSection",ExpressionUUID->"119176c2-887f-409f-a0c9-b72561b7624c",
 CellID->1872225408],
Cell[2465, 75, 149, 2, 27, "Template",ExpressionUUID->"1b15e1f4-90c6-45fb-bbe0-ea52939f5d72",
 CellID->1562036412],
Cell[2617, 79, 137, 2, 27, "Template",ExpressionUUID->"9e18a772-50d9-48d2-8436-649cdc9f97ec",
 CellID->158391909],
Cell[2757, 83, 136, 2, 27, "Template",ExpressionUUID->"1e946dbb-3373-40d7-b302-c6d742eac1b9",
 CellID->1360575930],
Cell[2896, 87, 137, 2, 27, "Template",ExpressionUUID->"aee0c783-3703-4eff-afcc-bcf11e35c648",
 CellID->793782254]
}, Open  ]],
Cell[CellGroupData[{
Cell[3070, 94, 104, 1, 63, "ObjectName",ExpressionUUID->"8393d601-4014-44ba-afc9-60862df940ec",
 CellID->1224892054],
Cell[3177, 97, 2029, 56, 120, "Usage",ExpressionUUID->"2e8d6335-2446-4473-b597-6bbb38a65799",
 CellID->982511436],
Cell[5209, 155, 834, 24, 28, "Notes",ExpressionUUID->"154f4bd8-07ba-4503-866b-525e4fb54c01",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[6080, 184, 113, 1, 44, "TechNotesSection",ExpressionUUID->"da8de6e2-f50e-4466-8f74-1195bf5a89d0",
 CellID->250839057],
Cell[6196, 187, 100, 1, 16, "Tutorials",ExpressionUUID->"e1edaba6-14d4-493d-967e-ab2b49e2f61b",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[6333, 193, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"8d2e4b42-3f1f-4fda-9065-bdb5de742079",
 CellID->1268215905],
Cell[6474, 196, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"549370f2-2a22-4244-90b3-6ae31eea748a",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[6624, 202, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"1218faa7-c18d-4eff-9a36-a4048d7b6b51",
 CellID->1584193535],
Cell[6747, 205, 104, 1, 16, "RelatedLinks",ExpressionUUID->"dfccd913-5621-47e5-ac70-28b83aef4a2d",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[6888, 211, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"e1b77b9c-87a2-4d83-b69a-076fc77c8bb2",
 CellID->1255426704],
Cell[7001, 214, 2290, 62, 40, "SeeAlso",ExpressionUUID->"0315209d-6341-46d1-8037-4a30b3ade231",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[9328, 281, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"090ecd4e-77ab-48e0-ba7a-1f9acccd0dd5",
 CellID->38303248],
Cell[9443, 284, 101, 1, 16, "MoreAbout",ExpressionUUID->"4cde9453-fd13-4c75-8f97-91cc14ef1142",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[9581, 290, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"4d971e0b-a467-44b1-b908-78f8a7482a42",
 CellID->880084151],
Cell[9995, 303, 444, 11, 26, "ExampleText",ExpressionUUID->"66d484a1-3d6c-42c5-a2f9-780bb3cfb14d",
 CellID->352052385],
Cell[CellGroupData[{
Cell[10464, 318, 431, 9, 27, "Input",ExpressionUUID->"f2c4b3e7-f947-462f-80a8-77fd335f3cef",
 CellID->1512834444],
Cell[10898, 329, 10956, 288, 26, "Output",ExpressionUUID->"5d02ff9c-fe05-4f4f-b12a-287923e8b871",
 CellID->944632221]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21903, 623, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[22061, 627, 242, 5, 33, "ExampleSection",ExpressionUUID->"6d08f999-4c69-4709-9b28-82906be6ee75",
 CellID->1293636265],
Cell[22306, 634, 265, 5, 21, "ExampleSection",ExpressionUUID->"85bb6475-fccb-4f83-9c4c-95411a492aa7",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[22596, 643, 244, 5, 21, "ExampleSection",ExpressionUUID->"3276b1d7-cf51-4f3b-970a-56b0e7c469f0",
 CellID->2061341341],
Cell[22843, 650, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"f43b442d-f23e-485c-8f19-d9411a527753",
 CellID->1757724783],
Cell[23093, 657, 247, 5, 20, "ExampleSubsection",ExpressionUUID->"7118f2cb-cf49-4930-a588-b368e1d6d7eb",
 CellID->1295379749]
}, Open  ]],
Cell[23355, 665, 248, 5, 33, "ExampleSection",ExpressionUUID->"1cd6234d-1e3c-431d-9989-71f3025eee95",
 CellID->258228157],
Cell[23606, 672, 259, 5, 21, "ExampleSection",ExpressionUUID->"0e0d5f37-f3c9-4474-a22b-9f10dcc8b438",
 CellID->2123667759],
Cell[23868, 679, 252, 5, 21, "ExampleSection",ExpressionUUID->"9397dd0b-9de4-443a-9371-be2b75148f2f",
 CellID->1305812373],
Cell[24123, 686, 257, 5, 21, "ExampleSection",ExpressionUUID->"c5507407-1b71-491f-84b6-3f5747264ef7",
 CellID->1653164318],
Cell[24383, 693, 249, 5, 21, "ExampleSection",ExpressionUUID->"ce9d5678-57c6-4712-bdd3-87904919f71e",
 CellID->589267740]
}, Open  ]]
}
]
*)

